function [ W ] = MockWHGaussianByEnergy( lam, E )
    Aampl = 1.5;
    Acenter = 530;
    Asigma = 70;
    Ae = sqrt(E);
    Agauss = Gauss(lam, Aampl, Acenter, Asigma)' ;
    Aspektras = Agauss* Ae;


    Bampl = 1.5;
    Bcenter = 400;
    Bsigma = 40;
    Be = E;
    Bspektras = Gauss(lam, Bampl, Bcenter, Bsigma)' * Be;


    Campl = 1.5;
    Ccenter = 300;
    Csigma = 60;
    Ce = E.^2;
    Cspektras = Gauss(lam, Campl, Ccenter, Csigma)' * Ce;

    spec = Aspektras + Bspektras + Cspektras;

    W = spec;

end
